home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 2 #2 / utv2n2s2.d64 / sorcerer boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  640b  |  21 lines
  1. 9 rem    sorcerer boot-jc hilty-feb 88
  2. 10 poke53281,0:poke53280,0:print"[144]";
  3. 11 poke 53271,0:poke 53277,0
  4. 12 poke147,0:sys57812"display.ml",8,1:sys62631
  5. 13 poke147,0:sys57812"sorcerer.t",8,1:sys62631:poke53280,0:sys49154
  6. 14 s=54272:forx=0to24:pokes+x,0:next:pokes+5,15:pokes+24,15
  7. 15 forfx=0to050step5:pokes+4,17:forx=5to25step2:pokes+1,x+fx
  8. 16 fort=0to10:next:next
  9. 17 forx=5to30step2:pokes+1,x+fx:get a$:if a$="[133]"then23
  10. 18 next:pokes+4,16:nextfx
  11. 19 goto15
  12. 23 pokes+4,16:clr
  13. 24 poke53265,peek(53265)and207:poke53272,(peek(53272)and240)or4
  14. 25 poke53270,peek(53270)and239:poke53281,0:poke646,0
  15. 26 printchr$(147);
  16. 27 print"load"chr$(34)"sorcerer.exe"chr$(34)",8":print:print
  17. 28 print"run":printtab(10)"[194]eware the [211]orcerer [144]":printchr$(19);
  18. 29 poke 198,2:poke631,13:poke632,13
  19. 30 poke 53265,peek(53265) or 16
  20. 31 end
  21.